COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	EXTERNAL FUNCTION GETFIL
C00004 ENDMK
C⊗;
EXTERNAL FUNCTION GETFIL;
INFILE←"SQ";
GETFIL;
ARRAY J(512);
J(0)←-1;J(1)←-1;J(2)←-1;J(3)←-1;
FUNCTION READHD(ARRAY J);
BEGIN  VARIABLE K;EXTERNAL FUNCTION FLOAT(X), FASTIN(ARRAY X,N);
FASTIN(J,128); 
<PRINT J(0),J(1),J(2),J(3);
FOR K←0 STEP 1 UNTIL 12  DO FLOAT(J(K)); 
END;

READHD(J);
PRINT J(0),J(1),J(2),J(3),J(4),J(5),J(6);
 
FUNCTION READIN(ARRAY J,ARRAY K,ARRAY L);
 
BEGIN VARIABLE Z,X,K;  ARRAY Q(3),H(1536);
EXTERNAL FUNCTION FASTIN(ARRAY X,N),UNPAC(H,ARRAY Q);
FASTIN(J,512);
X←0;
FOR K←0 STEP 1 UNTIL 511 DO
   BEGIN Z←J(K);
   UNPAC(Z,Q);    
   PRINT Q(0),Q(1),Q(2);
   X←X+3;
   END;
END;
READIN(F4,F5,F6);
READIN(F4,F5,F6);
READIN(F4,F5,F6);